home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / programmer / 266 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  1.0 KB
  1. Path: Norway.EU.net!usenet
  2. From: patrick.hanevold@login.eunet.no (Patrick Hanevold)
  3. Newsgroups: comp.sys.amiga.programmer
  4. Subject: RND
  5. Date: 5 Jan 1996 16:16:43 GMT
  6. Organization: EUnet Norway
  7. Message-ID: <709.6578T1027T1962@login.eunet.no>
  8. NNTP-Posting-Host: pc10.asker-pm2-1.eunet.no
  9. X-Newsreader: THOR 2.22 (Amiga;TCP/IP)
  10.  
  11.  
  12. ; By Patrick Hanevold 5/1-1996
  13.  
  14. SetSeed MACRO
  15.         move.w  \1,rndbuf
  16.         ENDM
  17.  
  18. RND     MACRO
  19.         move.w  (a0),\1
  20.         move.w  2(a0,\1.l*2),\1
  21.         move.w  \1,(a0)
  22.         ENDM
  23.  
  24. Test    bsr     InitRND
  25.         lea     rndbuf,a0
  26.         clr.l   d0
  27.         RND     d0
  28.         rts
  29.  
  30. InitRND lea     rndbuf,a0
  31.         move.w  (a0)+,d0
  32.         move.w  #-1,d7
  33.         moveq   #0,d1
  34. .loop   move.w  d0,d1
  35.         mulu    #9377,d0
  36.         add.w   #9439,d0
  37.         move.w  d0,(a0,d1.l*2)
  38.         dbra    d7,.loop
  39.         rts
  40.  
  41. rndbuf  dc.w    1996    ; Seed
  42.         blk.w   $10000
  43.  
  44. <sb>Patrick Hanevold - Virtual Reality developer
  45. <sb>patrick.hanevold@login.eunet.no
  46. <sb>Amiga and official Be developer
  47.  
  48.